home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo: Applications / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / QuickMail / Installer Resources / Scripts / MCIMail.Script 3.0B < prev    next >
Encoding:
Text File  |  1992-03-19  |  3.3 KB  |  145 lines  |  [TEXT/ttxt]
  1. * MCI Mail.ADVANCED.Script, for QuickMail™
  2. * Copyright © 1988, 1989 CE Software, Inc.
  3. *
  4. * Version 3.0B
  5. *
  6. * This is a simple script for the Telecom Bridge to log onto MCI Mail via Tymnet
  7. * Since MCI Mail does not support XMODEM binary file transfer, this script
  8. * doesn't either.  therefore if you send a message with an enclosure
  9. * to MCI Mail, the enclosure will NOT be sent.
  10. *
  11. * MCI Mail recently switched to all-Advanced service, so we no longer supply
  12. * a "Basic" service script.  Also, MCI Mail now uses a single 800 number to
  13. * call in, so the use the 2400 baud number of 1-800-456-6245 instead of
  14. * Tymnet.
  15. *
  16. * ----------------------------------------------------------------------------
  17. * Revision History
  18. *
  19. * 12/8/88 -  Bill Davis and Dave Loverink of CE Software.
  20. * Account for bad or missing addresses and drafts. Changed each TYPE command
  21. * to start  with a ^X, which erases everything typed on the line to that 
  22. * point; this may help reduce line noise problems. MCI Mail responds by typing 
  23. * “XXX” and either waiting for you to re-enter the line or by redisplaying the 
  24. * prompt.  
  25. *
  26. * 3/28/89 - Bill Davis of CE Software
  27. * Modified to set account options to PAPER terminal type and 80 character
  28. * lines, and to make the changes TEMPorary instead of PERManent.  The script
  29. * shipped with 2.0 had already been modified to set the PAGE depth (length)
  30. * to 100 lines per page.  That was done to avoid the “Press <return> to 
  31. * continue” prompt MCI would send on some MCI accounts.
  32. *
  33. * ----------------------------------------------------------------------------
  34. *
  35. * This is called to log us into MCI Mail
  36. *
  37. :IN
  38. OOPS 30,FAILURE
  39. PAUSE 8
  40. TYPE ^M
  41. WAIT user name:
  42. TYPE ^X«LOGID»^M
  43. WAIT Password:
  44. TYPE ^X«PASSWORD»^M
  45. NOTMAIL no messages waiting
  46. WAIT Command:
  47. * set account options to Paper terminal, 80 char lines, 100 line pages
  48. * and make the changes temporary, not permanent, so we don’t screw up
  49. * someone’s preferred settings.
  50. TYPE ^Xaccount^M
  51. WAIT Yes or No:
  52. TYPE ^Xno^M
  53. WAIT change:
  54. TYPE ^Xpage^M
  55. WAIT depth:
  56. TYPE ^X100^M
  57. WAIT change:
  58. TYPE ^Xline^M
  59. WAIT length:
  60. TYPE ^X80^M
  61. WAIT change:
  62. TYPE ^Xterm^M
  63. WAIT terminal:
  64. TYPE ^Xpaper^M
  65. WAIT change:
  66. TYPE ^X^M
  67. WAIT or TEMPorary:
  68. TYPE ^Xtemp^M
  69. WAIT Command:
  70. SUCCESS
  71. *
  72. * This is called to send one piece of mail
  73. *
  74. :SEND
  75. OOPS 60,FAILURE
  76. TYPE ^XCreate^M
  77. WAIT TO:
  78. TYPE ^X«ADDRESS»^M
  79. * 4 Alerts added 12/8/88 to account for bad or missing addresses
  80. ALERT 11,S1,There must be
  81. ALERT 12,S1,in the TO field
  82. ALERT 13,S2,not found in
  83. ALERT 14,S2,EMS Delivery
  84. * end of 12/8/88 changes
  85. WAIT TO:
  86. TYPE ^X^M
  87. WAIT CC:
  88. TYPE ^X^M
  89. WAIT Subject:
  90. TYPE ^X«TOPIC»^M
  91. WAIT to end.)
  92. TYPE ^XAttn:«NAME»^M
  93. DUMP ^J
  94. TYPE ^X/^M
  95. WAIT Handling:
  96. TYPE ^X^M
  97. WAIT Send?
  98. TYPE ^XY^M
  99. WAIT Command:
  100. SUCCESS
  101. * 
  102. :S1
  103. ERRORINADDRESS
  104. WAIT TO:
  105. TYPE ^X/^M
  106. WAIT Command:
  107. SUCCESS
  108. *
  109. :S2
  110. ERRORINADDRESS
  111. WAIT the number:
  112. TYPE ^X0^M
  113. WAIT TO:
  114. TYPE ^X/^M
  115. WAIT Command:
  116. SUCCESS
  117. *
  118. * This is called to receive mail.  It is called continually with increasing
  119. * values in «COUNT», until FAILURE occurs.  You can put all reads into one
  120. * listing, if you wish
  121. *
  122. :RECEIVE
  123. OOPS 60,FAILURE
  124. TYPE ^XRead Inbox^M
  125. ALERT 2,R10,Your INBOX is empty.
  126. :R1
  127. ALERT 1,R10,Your READ request is now complete.
  128. WAIT ^M
  129. BUFFER Command:
  130. ALERT 2,,
  131. RECEIVE Subject:,Attn:,From:,/ MCI ID: ,
  132. TYPE ^XNext^M
  133. GOTO R1
  134. :R10
  135. WAIT Command:
  136. FAILURE
  137. *
  138. * This logs us off MCI Mail
  139. *
  140. :BYE
  141. TYPE ^XEXIT^M
  142. ALERT 1,SUCCESS,log in:
  143. PAUSE 10
  144. SUCCESS
  145.